home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / userbox / publicdomain / delitracker_ii / install-dt_ii < prev   
Text File  |  1996-06-16  |  36KB  |  1,212 lines

  1. ;=============================================================================;
  2. ;
  3. ; $VER: DT_Install 2.25 (16.06.1996)
  4. ;
  5. ; Installation script for DeliTracker II
  6. ; (c) Copyright 1994-96 by Frank Riffel and Peter Kunath
  7. ;
  8. ; French installation by Acechan of THE END  (10.05.95)
  9. ;
  10. ;=============================================================================;
  11. ;=============================================================================;
  12. ;=============================================================================;
  13. ;
  14. ; This is a quick description of how this script works:
  15. ;
  16. ; 1. INIT_STUFF
  17. ;
  18. ; 2. CHECK_INSTALLED_VERSION:
  19. ;    NO_VERSION  => CHOOSE_DESTINATION
  20. ;            (suggestion Work: or SYS:)
  21. ;    OLD_VERSION => UNINSTALL_OLD
  22. ;    NEW_VERSION => EXIT
  23. ;
  24. ; 3. MAIN                                                      ~  80 KB
  25. ;
  26. ; 4. PLAYERS (default players, ask further players to install) ~ 350 KB
  27. ; 5. ASK PLAYSID                                               ~  20 KB
  28. ;
  29. ; 6. ASK DELIAY                                                ~  30 KB
  30. ;
  31. ; 7. GENIES (default genies, ask further genies to install)    ~ 250 KB
  32. ;
  33. ; 8. AREXX (ask user)                                          ~  15 KB
  34. ;
  35. ; 9. LIBS (ask user, suggested)                                ~  40 KB
  36. ;
  37. ; 10.DOCS (depending on language)                              ~ 110 KB
  38. ;                                                              
  39. ; 11.DEVELOPER_DOCS (ask only ADVANCED)                        ~ 160 KB
  40. ;                                                                ======
  41. ;                                                      TOTAL   ~   1 MB
  42. ;
  43. ;=============================================================================;
  44. ;=============================================================================;
  45. ;=============================================================================;
  46. ;
  47. ; Some initial stuff like kick version check, language selection, ...
  48.  
  49. (if (= @LANGUAGE "english")
  50.  (
  51.   (set def_pat "#?.eng#?")
  52.  
  53.   (set #bad-kick
  54.   (cat "DeliTracker 2.0 will only run under Kickstart 2.04 or above!"
  55.   ))
  56.  
  57.   (set #abort-t
  58.   (cat "Make sure that T: is large enough to hold 500KB."
  59.   ))
  60.  
  61.   (set #invalid-env
  62.   (cat "\nENV:DeliConfig doesn't point to a valid directory. It has been deleted.\n\n To install DeliTracker, run this script again."
  63.   ))
  64.  
  65.   (set #abort-no-space
  66.   (cat "You need at least 850.000 Bytes of free store to install DeliTracker II"
  67.   ))
  68.  
  69.   (set #choose-text
  70.   (cat "Please choose a directory where DeliTracker should be installed. A drawer will be created there."
  71.   ))
  72.  
  73.   (set #choose-help
  74.   (cat "In this location a drawer will be created. All files, except the libraries, will be installed inside this drawer. The complete installation will require about 1MB of free harddisk space."
  75.   ))
  76.  
  77.   (set #create-maindir
  78.   (cat "Creating DeliTracker directory"
  79.   ))
  80.  
  81.   (set #create-configdir
  82.   (cat "Creating Config directory"
  83.   ))
  84.  
  85.   (set #set-path
  86.   (cat "Setting up configuration path"
  87.   ))
  88.  
  89.   (set #inst-main
  90.   (cat "Installing main program."
  91.   ))
  92.  
  93.   (set #create-docsdir
  94.   (cat "Creating Docs dir"
  95.   ))
  96.  
  97.   (set #inst-docs
  98.   (cat "Installing program documentation"
  99.   ))
  100.  
  101.   (set #ask-xpk
  102.   (cat "Do you whish to install the decompression libraries?"
  103.   ))
  104.  
  105.   (set #xpk-help
  106.   (cat "It's suggested that you install the decompression libraries, even if you currently don't have packed modules!"
  107.   ))
  108.  
  109.   (set #create-comressorsdir
  110.   (cat "Creating Libs:Compressors dir"
  111.   ))
  112.  
  113.   (set #create-playerdir
  114.   (cat "Creating Player dir"
  115.   ))
  116.  
  117.   (set #create-playerstore
  118.   (cat "Creating PlayerStore"
  119.   ))
  120.  
  121.   (set #ask-players
  122.   (cat "Which Players should be activated?"
  123.   ))
  124.  
  125.   (set #ask-additional-players
  126.   (cat "Activate further players ? These players are not widespread. The average user won't need them to be activated. We suggest that you select 'NO'!"
  127.   ))
  128.  
  129.   (set #ask-players-2
  130.   (cat "Which additional Players should be activated? Think twice before selecting!"
  131.   ))
  132.  
  133.   (set #ask-playsid
  134.   (cat "Would you like to install the PlaySID deliplayer?\nNote: This deliplayer uses the playsid.library, which is SHAREWARE!. Please read the supplied documentation for further information."
  135.   ))
  136.  
  137.   (set #ask-deliay
  138.   (cat "Would you like to install the DeliAY deliplayer?\n(This player emulates the AY soundchip of the ZX Spectrum)"
  139.   ))
  140.  
  141.   (set #player-help
  142.   (cat "Select the players you want to be loaded at startup. Please choose only the ones you REALLY need and you have modules for. All other ones will be installed in the PlayerStore directory, so you may load them later."
  143.   ))
  144.  
  145.   (set #create-geniedir
  146.   (cat "Creating Genie dir"
  147.   ))
  148.  
  149.   (set #create-geniestore
  150.   (cat "Creating GenieStore"
  151.   ))
  152.  
  153.   (set #ask-genies
  154.   (cat "Which genies should be activated?"
  155.   ))
  156.  
  157.   (set #ask-xmas
  158.   (cat "Do you want to install the X-Mas '94 genie?"
  159.   ))
  160.  
  161.   (set #genie-help
  162.   (cat "All genies that are not activated will be installed in the GenieStore directory. For further informations about particular genies, please refer to Genies.eng."
  163.   ))
  164.  
  165.   (set #ask-arexx
  166.   (cat "Do you whish to install ARexx scripts?"
  167.   ))
  168.  
  169.   (set #help-arexx
  170.   (cat "Only choose this if you really use ARexx!"
  171.   ))
  172.  
  173.   (set #create-arexx
  174.   (cat "Creating ARexx dir"
  175.   ))
  176.  
  177.   (set #ask-pdocs
  178.   (cat "Do you whish to install Programming documentation?"
  179.   ))
  180.  
  181.   (set #help-pdocs
  182.   (cat "Only choose this if you plan to write your own players or genies."
  183.   ))
  184.  
  185.   (set #create-pdocs
  186.   (cat "Creating Developer dir"
  187.   ))
  188.  
  189.   (set #extract-players
  190.   (cat "Extracting Players"
  191.   ))
  192.  
  193.   (set #extract-genies
  194.   (cat "Extracting Genies"
  195.   ))
  196.  
  197.   (set #extract-arexx
  198.   (cat "Extracting and installing ARexx Scripts"
  199.   ))
  200.  
  201.   (set #extract-docs
  202.   (cat "Extracting and installing Docs"
  203.   ))
  204.  
  205.   (set #extract-libs
  206.   (cat "Extracting and installing Libs"
  207.   ))
  208.  
  209.   (set #extract-pdocs
  210.   (cat "Extracting and installing development stuff"
  211.   ))
  212.    
  213.   (set #final-msg
  214.   (cat "To configure the genies, repeat the following steps for each genie:\n\n1. Open the genie GUI with the 'Show' function.\n\n2. Activate the window and move it to the position where it should pop up.\n\n3. Set your defaults. You will find various op\
  215. tions in the 'Settings' Menu. In particular: If you want the window to be opened every time DeliTracker is started, turn 'Popup' on.\n\n4. Select 'Save Prefs' from the 'Project' Menu."
  216.   ))
  217.  
  218.   ; Update Strings
  219.  
  220.   (set #remove-old
  221.   (cat "All old files will be removed."
  222.   ))
  223.  
  224.   (set #proceed
  225.   (cat "Proceed"
  226.   ))
  227.  
  228.   (set #abort
  229.   (cat "Abort"
  230.   ))
  231.  
  232.   (set #remove-old-help
  233.   (cat "If you'd like to keep your current installation, you'll have to delete ENV:DELICONFIG and run this script again. Make sure that you select a different location for the new installation."
  234.   ))
  235.  
  236.   (set #removing-dt
  237.   (cat "Removing old files"
  238.   ))
  239.  
  240.   (set #already-newer-installed
  241.   (cat "The installation was aborted because this version or a newer one is already installed."
  242.   ))
  243.  
  244.   (set #update-msg
  245.   (cat "\n\nDeliTracker is SHAREWARE.\n\nIt seems that you use DeliTracker frequently. If you have not registered yet, please register now."
  246.   ))
  247.  )
  248. )
  249.  
  250. ; French string
  251.  
  252. (if (= @LANGUAGE "français")
  253.  (
  254.   (set def_pat "#?.fra#?")
  255.  
  256.   (set #bad-kick
  257.   (cat "DeliTracker 2.0 nécessite le système 2.04 au minimum !"
  258.   ))
  259.  
  260.   (set #abort-t
  261.   (cat "Assurez-vous que le répertoire T: peut contenir au moins 500 KB."
  262.   ))
  263.  
  264.   (set #invalid-env
  265.   (cat "\nLa variable contenue dans 'ENV:DeliConfig' est erronée. Le fichier a été effacé.\n\n Si vous voulez installer DeliTracker, relancez le script d'installation."
  266.   ))
  267.  
  268.   (set #abort-no-space
  269.   (cat "Vous avez besoin d'au-moins 850 KB de libre sur votre disque pour installer DeliTracker II"
  270.   ))
  271.  
  272.   (set #choose-text
  273.   (cat "Veuillez choisir le répertoire dans lequel DeliTracker doit être installé. Un répertoire y sera alors créé."
  274.   ))
  275.  
  276.   (set #choose-help
  277.   (cat "Un répertoire sera créé ici. Tous les fichiers, à l'exception des bibliothèques, seront installés dans ce répertoire. L'installation complète nécessite environ 1 MB d'espace libre sur votre disque dur."
  278.   ))
  279.  
  280.   (set #create-maindir
  281.   (cat "Création du répertoire 'DeliTracker'"
  282.   ))
  283.  
  284.   (set #create-configdir
  285.   (cat "Création du réertoire 'Config'"
  286.   ))
  287.  
  288.   (set #set-path
  289.   (cat "Choix du chemin pour la configuration"
  290.   ))
  291.  
  292.   (set #inst-main
  293.   (cat "Installation du programme principal"
  294.   ))
  295.  
  296.   (set #create-docsdir
  297.   (cat "Création du répertoire 'Docs'"
  298.   ))
  299.  
  300.   (set #inst-docs
  301.   (cat "Installation de la documentation"
  302.   ))
  303.  
  304.   (set #ask-xpk
  305.   (cat "Voulez-vous installer les bibliothèques de décompression XPK ?"
  306.   ))
  307.  
  308.   (set #xpk-help
  309.   (cat "Il est indiqué d'installer ces bibliothèques, même si vous n'en éprouvez pas le besoin pour l'instant et que vous n'avez pas compressé de modules !"
  310.   ))
  311.  
  312.   (set #create-comressorsdir
  313.   (cat "Création du répertoire 'Compressors' dans Libs:"
  314.   ))
  315.  
  316.   (set #create-playerdir
  317.   (cat "Création du répertoire 'DeliPlayers'"
  318.   ))
  319.  
  320.   (set #create-playerstore
  321.   (cat "Création du répertoire 'DeliPlayers/PlayerStore'"
  322.   ))
  323.  
  324.   (set #ask-players
  325.   (cat "Quels sont les players que vous désirez charger au démarrage ?"
  326.   ))
  327.  
  328.   (set #ask-additional-players
  329.   (cat "Désirez-vous en installer d'autres ? Ces players ne sont que très peu utilisés, nous vous suggérons donc de ne pas les sélectionner !"
  330.   ))
  331.  
  332.   (set #ask-players-2
  333.   (cat "Quels sont les players que vous désirez ajouter encore ? Réfléchissez-y à deux fois avant d'en sélectionner !"
  334.   ))
  335.  
  336.   (set #ask-playsid
  337.   (cat "Désirez-vous installer le player PlaySID ?\nRemarque: Ce player a besoin de la 'playsid.library', qui est considérée comme SHAREWARE ! Veuillez vous référer à la documentation pour plus de détails."
  338.   ))
  339.  
  340.   (set #ask-deliay
  341.   (cat "Voulez-vous installer le player DeliAY ?\n(Ce player sert à émuler les sons AY du ZX Spectrum)"
  342.   ))
  343.  
  344.   (set #player-help
  345.   (cat "Cochez les cases correspondant aux players que vous désirez charger au démarrage de DeliTracker. Ne choisissez que des players dont vous avez besoin ! Tous les autres seront installés dans le répertoire PlayerStore et pourront par conséquent être\
  346.  chargés plus tard. N'oubliez pas que chaque player a besoin de mémoire supplémentaire ! Référez-vous à la documentation pour plus de renseignements au sujet des players (Players.fra)..."
  347.   ))
  348.  
  349.   (set #create-geniedir
  350.   (cat "Création du répertoire 'DeliGenies'"
  351.   ))
  352.  
  353.   (set #create-geniestore
  354.   (cat "Création du répertoire 'DeliGenies/GenieStore'"
  355.   ))
  356.  
  357.   (set #ask-genies
  358.   (cat "Quels sont les génies que vous voulez activer lors du démarrage de DeliTracker II ?"
  359.   ))
  360.  
  361.   (set #ask-xmas
  362.   (cat "Voulez-vous installer le génie 'X-Mas '94' ?"
  363.   ))
  364.  
  365.   (set #genie-help
  366.   (cat "Tous les génies que vous n'avez pas cochés seront copiés dans le répertoire 'GenieStore' et pourront donc être appelés plus tard. Pour plus d'informations, référez-vous à la documentation correspondante (Genies.fra)..."
  367.   ))
  368.  
  369.   (set #ask-arexx
  370.   (cat "Désirez-vous installer les scripts ARexx ?"
  371.   ))
  372.  
  373.   (set #help-arexx
  374.   (cat "N'installez ces scripts que si vous en avez vraiment besoin et si vous utilisez régulièrement ARexx."
  375.   ))
  376.  
  377.   (set #create-arexx
  378.   (cat "Création du répertoire 'ARexx'"
  379.   ))
  380.  
  381.   (set #ask-pdocs
  382.   (cat "Désirez-vous installer la documentation pour programmeurs (en anglais) ?"
  383.   ))
  384.  
  385.   (set #help-pdocs
  386.   (cat "N'installez ces fichiers que si vous prévoyez d'écrire vos propres routines pour vos propres players !  (Connaissances sérieuses en anglais requises)"
  387.   ))
  388.  
  389.   (set #create-pdocs
  390.   (cat "Création du répertoire 'Developer'"
  391.   ))
  392.  
  393.   (set #extract-players
  394.   (cat "Décompression de l'archive contenant les players\n\nVeuillez patienter quelques instants..."
  395.   ))
  396.  
  397.   (set #extract-genies
  398.   (cat "Décompression de l'archive contenant les génies\n\nVeuillez patienter quelques instants..."
  399.   ))
  400.  
  401.   (set #extract-arexx
  402.   (cat "Décompression et installation de l'archive contenant les scripts ARexx\n\nVeuillez patienter..."
  403.   ))
  404.  
  405.   (set #extract-docs
  406.   (cat "Décompression et installation de l'archive contenant la documentation\n\nVeuillez patienter..."
  407.   ))
  408.  
  409.   (set #extract-libs
  410.   (cat "Décompression et installation de l'archive contenant les bibliothèques\n\nVeuillez patienter..."
  411.   ))
  412.  
  413.   (set #extract-pdocs
  414.   (cat "Décompression et installation de l'archive contenant les informations pour programmeurs\n\nVeuillez patienter..."
  415.   ))
  416.    
  417.   (set #final-msg
  418.   (cat "\nPour configurer les génies, veuillez procéder comme suit pour chacun d'eux :\n\n1. Ouvrez la fenêtre de configuration à l'aide de l'option 'Show'.\n2. Activez la fenêtre et déplacez-la ensuite où vous voulez qu'elle apparaisse.\n3. Choisissez\
  419.  vos options par défaut (généralement dans le menu 'Settings', en particulier 'Popup', qui vous permet de choisir si vous désirez que DeliTracker ouvre la fenêtre lors du démarrage).\n4. Concluez par 'Save Prefs' dans le menu 'Project'."
  420.   ))
  421.  
  422.   ; Update Strings
  423.  
  424.   (set #remove-old
  425.   (cat "Tous les anciens fichiers seront détruits."
  426.   ))
  427.  
  428.   (set #proceed
  429.   (cat "Continuer"
  430.   ))
  431.  
  432.   (set #abort
  433.   (cat "Arrêter"
  434.   ))
  435.  
  436.   (set #remove-old-help
  437.   (cat "Si vous désirez garder votre installation de DeliTracker intacte, sans effacer les anciens fichiers, vous devez effacer 'ENV:DELICONFIG' et redémarrer le script d'installation. Assurez-vous que vous avez bien choisi un autre chemin pour effectuer\
  438.  l'installation."
  439.   ))
  440.  
  441.   (set #removing-dt
  442.   (cat "Efface les anciens fichiers."
  443.   ))
  444.  
  445.   (set #already-newer-installed
  446.   (cat "L'installation est impossible, car cette version (ou une version plus récente) est déjà installée sur votre disque dur."
  447.   ))
  448.  
  449.   (set #update-msg
  450.   (cat "\n\nDeliTracker est un produit considéré comme SHAREWARE.\n\nApparemment, vous utilisez DeliTracker fréquemment. Si vous n'êtes pas encore un utilisateur référencié, nous vous prions de le devenir aussi tôt que possible !"
  451.   ))
  452.  )
  453. )
  454.  
  455. ; German strings
  456.  
  457. (if (= @LANGUAGE "deutsch")
  458.  (
  459.   (set def_pat "#?.deu#?")
  460.  
  461.   (set #bad-kick
  462.   (cat "DeliTracker 2.0 benötigt mindenstens Kickstart 2.04!"
  463.   ))
  464.  
  465.   (set #abort-t
  466.   (cat "Das T: Verzeichnis muß mindestens 500KB Platz zum Entpacken verschiedener Dateien bieten."
  467.   ))
  468.  
  469.   (set #invalid-env
  470.   (cat "\nENV:DeliConfig enthält eine ungültige Pfandangabe und wurde gelöscht.\n\n Starten Sie dieses Skript nochmal, um DeliTracker neu zu installieren."
  471.   ))
  472.  
  473.   (set #abort-no-space
  474.   (cat "Sie benötigen mindestens 850.000 Bytes freien Plattenplatz um DeliTracker zu installieren."
  475.   ))
  476.  
  477.   (set #choose-text
  478.   (cat "Bitte wählen Sie das Verzeichniss wohin DeliTracker installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  479.   ))
  480.  
  481.   (set #choose-help
  482.   (cat "Bei der Installation werden alle Dateien, bis auf die Libraries, in dieses Verzeichniss installiert. Die vollständige Installation von DeliTracker belegt auf der Festplatte etwa 1MB."
  483.   ))
  484.  
  485.   (set #create-maindir
  486.   (cat "Erstelle DeliTracker-Verzeichniss"
  487.   ))
  488.  
  489.   (set #create-configdir
  490.   (cat "Erstelle Konfigurations-Verzeichniss"
  491.   ))
  492.  
  493.   (set #set-path
  494.   (cat "Erstelle Pfad-Variable"
  495.   ))
  496.  
  497.   (set #inst-main
  498.   (cat "Installiere Hauptprogramm."
  499.   ))
  500.  
  501.   (set #create-docsdir
  502.   (cat "Erstelle Docs-Verzeichniss"
  503.   ))
  504.  
  505.   (set #inst-docs
  506.   (cat "Installiere Programm Dokumentation"
  507.   ))
  508.  
  509.   (set #ask-xpk
  510.   (cat "Wollen Sie die XPK Packer-Libraries installieren?"
  511.   ))
  512.  
  513.   (set #xpk-help
  514.   (cat "Sie sollenten die Packer-Libraries auch dann installieren, wenn Sie (noch) keine gepackten Module besitzen!"
  515.   ))
  516.  
  517.   (set #create-comressorsdir
  518.   (cat "Erstelle Libs:Compressors Unterverzeichniss"
  519.   ))
  520.  
  521.   (set #create-playerdir
  522.   (cat "Erstelle Player-Verzeichniss"
  523.   ))
  524.  
  525.   (set #create-playerstore
  526.   (cat "Erstelle PlayerStore"
  527.   ))
  528.  
  529.   (set #ask-players
  530.   (cat "Welche Player sollen aktiviert werden werden?"
  531.   ))
  532.  
  533.   (set #ask-additional-players
  534.   (cat "Sollen zusätzliche Player aktiviert werden? Hierbei handelt es sich um Player die nicht sehr Verbreitet sind. Der normale Benutzer wird diese Player nicht benötigen. Wir schlagen deshalb vor, das Sie mit 'NEIN' fortfahren."
  535.   ))   
  536.  
  537.   (set #ask-players-2
  538.   (cat "Welche zusätzlichen Player sollen bei Programmstart geladen werden?"
  539.   ))
  540.  
  541.   (set #ask-playsid
  542.   (cat "Wollen sie den PlaySID Player für DeliTracker installieren ?\nHinweis: Dieser DeliPlayer benutzt die playsid.library. Diese Library ist SHAREWARE! Für weitere Informationen lesen sie bitte die zugehörige Dokumentation."
  543.   ))
  544.  
  545.   (set #ask-deliay
  546.   (cat "Wollen Sie den DeliAY Player installieren?\n(Dieser Player emuliert den AY Soundchip des ZX Spectrum)"
  547.   ))
  548.  
  549.   (set #player-help
  550.   (cat "Bitte wählen Sie nur Player für die Sie auch Module besitzen. Nicht angewählete Player werden im Playerstore installiert. Sie können diese Player bei Bedarf später immer noch nachladen."
  551.   ))
  552.  
  553.   (set #create-geniedir
  554.   (cat "Erstelle Genie Verzeichniss"
  555.   ))
  556.  
  557.   (set #create-geniestore
  558.   (cat "Erstelle GenieStore"
  559.   ))
  560.  
  561.   (set #ask-genies
  562.   (cat "Welche zusätzlichen Genies sollen bei Programmstart geladen werden?"
  563.   ))
  564.  
  565.   (set #ask-xmas
  566.   (cat "Soll das '94 Weihnachts Genie installiert werden?"
  567.   ))
  568.  
  569.   (set #genie-help
  570.   (cat "Alle Genies die nicht aktiviert werden sind im GenieStore zu finden. Weitere Informationen finden Sie in Genies.deu."
  571.   ))
  572.  
  573.   (set #ask-arexx
  574.   (cat "Wollen Sie die ARexx scripts installieren?"
  575.   ))
  576.  
  577.   (set #help-arexx
  578.   (cat "Wählen Sie diese Option nur wenn Sie Arexx auch benutzen."
  579.   ))
  580.  
  581.   (set #create-arexx
  582.   (cat "Erstelle Arexx-Verzeichniss"
  583.   ))
  584.  
  585.   (set #ask-pdocs
  586.   (cat "Wollen Sie die Programmierdokumentation installieren?"
  587.   ))
  588.  
  589.   (set #help-pdocs
  590.   (cat "Wählen Sie diese Option nur, wenn Sie eigene Player oder Genies schreiben wollen. Hinweis: Die Entwicklerdokumentation ist für Assemblerprogramierer gedacht und ist nur in Englisch verfügbar!"
  591.   ))
  592.  
  593.   (set #create-pdocs
  594.   (cat "Erstelle Developer-Verzeichniss"
  595.   ))
  596.  
  597.   (set #extract-players
  598.   (cat "Entpacke Player"
  599.   ))
  600.  
  601.   (set #extract-genies
  602.   (cat "Entpacke Genies"
  603.   ))
  604.  
  605.   (set #extract-arexx
  606.   (cat "Entpacke Arexx Scrips"
  607.   ))
  608.  
  609.   (set #extract-docs
  610.   (cat "Entpacke Dokumentation"
  611.   ))
  612.  
  613.   (set #extract-libs
  614.   (cat "Entpacke Libraries"
  615.   ))
  616.  
  617.   (set #extract-pdocs
  618.   (cat "Entpacke Entwicklungspaket"
  619.   ))
  620.  
  621.   (set #final-msg
  622.   (cat "Um die Genies zu konfigurieren, wiederholen Sie folgende Schritte für jedes Genie:\n\n1. Öffnen Sie die zugehörige GUI mit der 'Show' Funktion.\n2. Aktivieren Sie das Fenster und positionieren Sie es an der gewünschten Stelle.\n3. Stellen Sie die\
  623.  Optionen nach Bedarf ein. Sie finden die Einstellungen im 'Settings' Menü. Wenn Sie wünschen, daß dieses Fenster bei jedem Start von DeliTracker geöffnet wird, schalten Sie 'Popup' an.\n\n4. Wählen Sie den Menüpunkt 'Save Prefs' aus dem 'Project' Menü."
  624.   ))
  625.  
  626.   ; Update Strings
  627.  
  628.   (set #remove-old
  629.   (cat "Es werden jetzt alle alten Dateien gelöscht."
  630.   ))
  631.   
  632.   (set #proceed
  633.   (cat "Weiter"
  634.   ))
  635.  
  636.   (set #abort
  637.   (cat "Abbrechen"
  638.   ))
  639.  
  640.   (set #remove-old-help
  641.   (cat "Wenn Sie Ihre alte Installation behalten wollen müssen Sie ENV:DELICONFIG löschen und dieses Script erneut starten. Installieren Sie die neue Version unbedingt in einem anderen Directory."
  642.   ))
  643.  
  644.   (set #removing-dt
  645.   (cat "Entferne alte Dateien."
  646.   ))
  647.  
  648.   (set #already-newer-installed
  649.   (cat "Die Installation wurde abgebrochen, da bereits eine neuere Version installiert ist!"
  650.   ))
  651.  
  652.   (set #update-msg
  653.   (cat "\n\nDeliTracker ist SHAREWARE.\n\nDa Sie scheinbar DeliTracker öfter benutzen, sollten Sie sich, falls Sie das noch nicht getan haben, registrieren!"
  654.   ))
  655.  )
  656. )
  657.  
  658. ; check kick version
  659.  
  660. (if (< (/ (getversion) 65536) 37) (abort #bad-kick))
  661.  
  662. ; say hi 
  663. (welcome)
  664. (complete 0)
  665.  
  666. ;=============================================================================;
  667. ; Choose directory where DeliTracker is/will be installed.
  668. ; (Check for enough room)
  669. ;
  670. (if (exists "ENVARC:DELICONFIG" (noreq))
  671.  (
  672.   ; for compatibility with AmiNET 8 CD
  673.   (copyfiles (source "ENVARC:DELICONFIG") (dest "ENV:"))
  674.  
  675.   (set @default-dest (getenv "DELICONFIG"))
  676.   (set @default-dest (substr @default-dest 0 (- (strlen @default-dest) 11)))
  677.  
  678.   ; check ENV Variable
  679.   (if (NOT (exists @default-dest (noreq)))
  680.    (
  681.     (delete "ENVARC:DELICONFIG")
  682.     (abort #invalid-env)
  683.    )
  684.   )
  685.  
  686.   ; check installed version
  687.   (if (> (BITAND 65535 (getversion ("DeliTracker2"))) (BITAND 65535 (getversion (tackon @default-dest "DeliTracker2"))))
  688.    (    
  689.     (if (= 1 (askbool (prompt #remove-old) (help #remove-old-help) (choices #proceed #abort)))
  690.      (
  691.       (working #removing-dt)
  692.       (if (= 2 (exists @default-dest))
  693.        (; delete all files in the DeliTracker2 drawer
  694.         (foreach (tackon @default-dest "DeliPlayers/PlayerStore") "#?" (delete (tackon (tackon @default-dest "DeliPlayers/PlayerStore") @each-name)))
  695.         (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon (tackon @default-dest "DeliPlayers") @each-name)))
  696.         (if (= 2 (exists (tackon @default-dest "AYPlayers")))
  697.          (
  698.            (foreach (tackon @default-dest "AYPlayers") "#?" (delete (tackon (tackon @default-dest "AYPlayers") @each-name)))
  699.            (delete (tackon @default-dest "AYPlayers.info"))
  700.            (delete (tackon @default-dest "AYPlayers"))
  701.          )
  702.         )
  703.         (foreach (tackon @default-dest "DeliGenies/GenieStore") "#?" (delete (tackon (tackon @default-dest "DeliGenies/GenieStore") @each-name)))
  704.         (foreach (tackon @default-dest "DeliGenies") "#?" (delete (tackon (tackon @default-dest "DeliGenies") @each-name)))
  705.         (foreach (tackon @default-dest "Docs") "#?" (delete (tackon (tackon @default-dest "Docs") @each-name)))
  706.         (if (= 2 (exists (tackon @default-dest "Arexx")))
  707.          (
  708.           (foreach (tackon @default-dest "ARexx") "#?" (delete (tackon (tackon @default-dest "ARexx") @each-name)))
  709.           (delete (tackon @default-dest "ARexx.info"))
  710.           (delete (tackon @default-dest "ARexx"))
  711.          )
  712.         )
  713.         (if (= 2 (exists (tackon @default-dest "Developer")))
  714.          (
  715.           (foreach (tackon @default-dest "Developer/Include/Misc") "#?" (delete (tackon (tackon @default-dest "Developer/Include/Misc") @each-name)))
  716.           (foreach (tackon @default-dest "Developer/Include") "#?" (delete (tackon (tackon @default-dest "Developer/Include") @each-name)))
  717.           ; Custom dir has been removed
  718.           (if (= 2 (exists (tackon @default-dest "Developer/Examples/Custom")))
  719.            (
  720.             (foreach (tackon @default-dest "Developer/Examples/Custom") "#?" (delete (tackon (tackon @default-dest "Developer/Examples/Custom") @each-name)))
  721.            )
  722.           )
  723.           (foreach (tackon @default-dest "Developer/Examples") "#?" (delete (tackon (tackon @default-dest "Developer/Examples") @each-name)))
  724.           (foreach (tackon @default-dest "Developer") "#?" (delete (tackon (tackon @default-dest "Developer") @each-name)))
  725.           (delete (tackon @default-dest "Developer.info"))
  726.           (delete (tackon @default-dest "Developer"))
  727.          )
  728.         )
  729.        )
  730.       )
  731.  
  732.       ; for those who have moved DeliTracker into the WBStartUp drawer
  733.       (delete "SYS:WBStartUp/DeliTracker2")
  734.       (delete "SYS:WBStartUp/DeliTracker2.info")
  735.       ; remind shareware
  736.       (message #update-msg)
  737.      )
  738.      (exit "Bye Bye ...")
  739.     )
  740.    )
  741.    (abort #already-newer-installed)
  742.   )
  743.  )
  744.  
  745.  ; CHOOSE_DESTINATION
  746.  
  747.  (
  748.   (if (= "RAM" (getdevice "T:"))
  749.    (set freespace (+ (database "total-mem")))
  750.    (set freespace (getdiskspace ("%s:" (getdevice "T:"))))
  751.   )
  752.   (if (< freespace 500000)
  753.     (abort #abort-t))
  754.   
  755.   (set @default-dest (getassign "Work" "dva"))
  756.   (if (= @default-dest "")
  757.    (set @default-dest "SYS:"))
  758.   
  759.   (set @default-dest (askdir
  760.     (prompt #choose-text)
  761.     (help #choose-help)
  762.     (default @default-dest))
  763.   ) 
  764.   
  765.   (set @default-dest (tackon @default-dest "DeliTracker_II"))
  766.   
  767.   (if (NOT (= "RAM" (getdevice @default-dest)))
  768.    (if (> 850000 (getdiskspace ("%s:" (getdevice @default-dest))))
  769.     (abort #abort-no-space)
  770.    )
  771.   )
  772.  )
  773. )
  774.  
  775. (complete 5)
  776.  
  777. ;=============================================================================;
  778. ; Install procedure for DeliTracker itself
  779.  
  780. (copyfiles (source "c/LZX_68000EC") (dest "T:") (newname "LZX"))
  781.  
  782. (makedir @default-dest (prompt #create-maindir)(infos))
  783. (makedir (tackon @default-dest "DELICONFIG") (prompt #create-configdir))
  784. (copyfiles (prompt #inst-main)
  785.  (source "DeliTracker2")
  786.  (dest @default-dest)
  787.  (optional "fail")
  788.  (infos)
  789. )
  790.  
  791. (complete 10)
  792.  
  793. ;=============================================================================;
  794. ; Installation procedure for players
  795.  
  796. (makedir (tackon @default-dest "DeliPlayers")
  797.  (prompt #create-playerdir)
  798.  (infos)
  799. )
  800.  
  801. (makedir (tackon @default-dest "DeliPlayers/PlayerStore")
  802.  (prompt #create-playerstore)
  803.  (infos)
  804. )
  805.  
  806. (working #extract-players)
  807. (run "T:LZX -m -x x Files/players.lzx T:")
  808.  
  809. (
  810.  (copyfiles (prompt #ask-players)
  811.   (help #player-help)
  812.   (source "T:DeliPlayers/")
  813.   (dest (tackon @default-dest "DeliPlayers"))
  814.   (optional "nofail")
  815.   (confirm "average")
  816.   (files)
  817.   (all)
  818.  )
  819. )
  820.  
  821. (if (= 1 (askbool (prompt #ask-additional-players) (help @help-askbool)))
  822.  (
  823.   (
  824.    (copyfiles (prompt #ask-players-2)
  825.    (help #player-help)
  826.    (source "T:DeliPlayers/Playerstore")
  827.    (dest (tackon @default-dest "DeliPlayers"))
  828.    (optional "nofail")
  829.    (confirm "average")
  830.    (files)
  831.    (all)
  832.    )
  833.   )
  834.  )
  835. )
  836.  
  837. (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon "T:DeliPlayers/" (fileonly @each-name))))
  838. (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon "T:DeliPlayers/PlayerStore/" (fileonly @each-name))))
  839. (copyfiles (source "T:DeliPlayers/Playerstore")
  840.       (dest (tackon @default-dest "DeliPlayers/PlayerStore"))
  841.       (files)
  842.       (all)
  843. )
  844. (foreach "T:DeliPlayers/Playerstore" "#?" (delete (tackon "T:DeliPlayers/PlayerStore/" (fileonly @each-name))))
  845. (delete "T:DeliPlayers/Playerstore")
  846. (copyfiles (source "T:DeliPlayers") 
  847.       (dest (tackon @default-dest "DeliPlayers/PlayerStore"))
  848.       (files)
  849.       (all)
  850. )
  851. (foreach "T:DeliPlayers" "#?" (delete (tackon "T:DeliPlayers/" (fileonly @each-name))))
  852. (delete "T:DeliPlayers")
  853.  
  854. (complete 60)
  855.  
  856. ;=============================================================================;
  857. ; Installation procedure for PlaySID
  858.  
  859. (if (= 1 (askbool (prompt #ask-playsid) (help @help-askbool)))
  860.  (
  861.   (
  862.    (working #extract-players)
  863.    (run "T:LZX -m x Bonus/DeliSID.lzx DeliSID T:")
  864.    (run "T:LZX -m x Bonus/playsid3.lzx PlaySID3.0/PlaySID.doc PlaySID3.0/PlaySID.doc.info PlaySID3.0/libs/playsid.library T:")
  865.  
  866.    (copyfiles (help #player-help)
  867.     (source "T:DeliSID")
  868.     (dest (tackon @default-dest "DeliPlayers"))
  869.    )
  870.  
  871.    (copyfiles (help #player-help)
  872.     (source "T:PlaySID3.0/PlaySID.doc.info")
  873.     (dest (tackon @default-dest "Docs"))
  874.    )
  875.  
  876.    (copyfiles (help #player-help)
  877.     (source "T:PlaySID3.0/PlaySID.doc")
  878.     (dest (tackon @default-dest "Docs"))
  879.    )
  880.  
  881.    (copylib (prompt "The playsid.library is required for DeliSID")
  882.     (source "T:PlaySID3.0/libs/playsid.library")
  883.     (dest "libs:")
  884.     (help @copylib-help)
  885.    )
  886.    (delete "T:DeliSID")
  887.    (delete "T:PlaySID3.0/PlaySID.doc.info")
  888.    (delete "T:PlaySID3.0/PlaySID.doc")
  889.    (delete "T:PlaySID3.0/libs/playsid.library")
  890.    (delete "T:PlaySID3.0/libs")
  891.    (delete "T:PlaySID3.0")
  892.   )
  893.  )
  894. )
  895.  
  896. (complete 65)
  897.  
  898. ;=============================================================================;
  899. ; Installation procedure for DeliAY
  900.  
  901. (if (= 1 (askbool (prompt #ask-deliay) (help @help-askbool)))
  902.  ( 
  903.   (
  904.    (working #extract-players)
  905.    (run "T:LZX -m x Bonus/deliay.lzx DeliAY/#?readme#? DeliAY/AYPlayers/#? DeliAY/DeliPlayers/#? T:")
  906.  
  907.    ; copy docs 
  908.    (copyfiles (help #player-help)
  909.     (source "T:DeliAY/DeliAY.readme.info")
  910.     (dest (tackon @default-dest "Docs"))
  911.    )   
  912.    (copyfiles (help #player-help)
  913.     (source "T:DeliAY/DeliAY.readme")
  914.     (dest (tackon @default-dest "Docs"))
  915.     (files)
  916.    )
  917.  
  918.    ; copy DeliAY player
  919.    (copyfiles (help #player-help)
  920.     (source "T:DeliAY/DeliPlayers/DeliAY")
  921.     (dest (tackon @default-dest "DeliPlayers"))
  922.    )
  923.  
  924.    ; let's make a new sub-player directory
  925.    (makedir (tackon @default-dest "AYPlayers")
  926.    (prompt #create-playerdir)
  927.    )
  928.  
  929.    ; copy sub-players
  930.    (copyfiles (help #player-help)
  931.     (source "T:DeliAY/AYPlayers")
  932.     (dest (tackon @default-dest "AYPlayers"))
  933.     (files)
  934.     (all)
  935.    )
  936.  
  937.    ; delete temporary files 
  938.    (foreach "T:DeliAY/AYPlayers/" "#?" (delete (tackon "T:DeliAY/AYPlayers/" @each-name) (optional force)))
  939.    (foreach "T:DeliAY/DeliPlayers/" "#?" (delete (tackon "T:DeliAY/DeliPlayers/" @each-name) (optional force)))
  940.    (foreach "T:DeliAY/" "#?" (delete "T:DeliAY/" (tackon "T:DeliAY/" @each-name) (optional force)))
  941.    (delete "T:DeliAY")
  942.  
  943.   )
  944.  )
  945. )
  946.  
  947. (complete 66)
  948.  
  949. ;=============================================================================;
  950. ; Installation procedure for genies
  951. ; Install default genies
  952. ; Average, Expert: ask optional genies
  953.  
  954. (makedir (tackon @default-dest "DeliGenies")
  955.  (prompt #create-geniedir)
  956.  (infos)
  957. )
  958.  
  959. (makedir (tackon @default-dest "DeliGenies/GenieStore")
  960.  (prompt #create-geniestore)
  961.  (infos)
  962. )
  963.  
  964. (working #extract-genies)
  965. (run ("T:LZX -m -x x Files/genies.lzx \"%s/\"" @default-dest))
  966.  
  967. (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  968.  ; remove NotePlayers on 68000er Systems that require at least a '020
  969.  (
  970.   (delete (tackon @default-dest "DeliGenies/GenieStore/14Bit-NotePlayer"))
  971.   (delete (tackon @default-dest "DeliGenies/GenieStore/32Voc-NotePlayer"))
  972.   (delete (tackon @default-dest "DeliGenies/GenieStore/32Voc-NotePlayerPlus"))
  973.   (delete (tackon @default-dest "DeliGenies/GenieStore/ModSave-NotePlayer"))
  974.  )
  975.  ; remove obsolete NotePlayers for 68020+ Systems
  976.  (
  977.   (delete (tackon @default-dest "DeliGenies/8Voc-NotePlayer"))
  978.  )
  979. )
  980.  
  981. (
  982.  (copyfiles (prompt #ask-genies)
  983.   (help #genie-help)
  984.   (source (tackon @default-dest "DeliGenies/Geniestore"))
  985.   (dest (tackon @default-dest "DeliGenies"))
  986.   (optional "nofail")
  987.   (confirm "average")
  988.   (files)
  989.   (all)
  990.  )
  991. )
  992.  
  993. (foreach (tackon @default-dest "DeliGenies") "#?" (delete (tackon (tackon @default-dest "DeliGenies/GenieStore/") (fileonly @each-name))))
  994.  
  995. (complete 75)
  996.  
  997. ;=============================================================================;
  998. ; Installation procedure for X-Mas Genie
  999.  
  1000. (if (= 1 (askbool (prompt #ask-xmas) (help @help-askbool)))
  1001.  ( 
  1002.   (
  1003.    (working #extract-genies)
  1004.    (run "T:LZX -m x Bonus/X-Mas.lzx Xmas-Genie T:")
  1005.    
  1006.    (copyfiles (help #genies-help)
  1007.     (source "T:Xmas-Genie")
  1008.     (dest (tackon @default-dest "DeliGenies"))
  1009.    )
  1010.  
  1011.    (delete "T:Xmas-Genie")
  1012.   )
  1013.  )
  1014. )
  1015.  
  1016. (complete 76)
  1017.  
  1018. ;=============================================================================
  1019. ; Installation procedure for Arexx Scripts
  1020.  
  1021. (if (< 0 @user-level)
  1022.  (if (= 1 (askbool (prompt #ask-arexx) (help #help-arexx)))
  1023.   (
  1024.    (makedir (tackon @default-dest "Arexx")
  1025.     (prompt #create-arexx)
  1026.     (infos)
  1027.    )
  1028.    (working #extract-arexx)
  1029.    (run ("T:LZX -m -x x Files/arexx.lzx \"%s/\"" @default-dest))
  1030.   )
  1031.  )
  1032. )
  1033.  
  1034. (complete 80)
  1035.  
  1036. ;=============================================================================;
  1037. ; Install procedure for the decompression libraries
  1038.  
  1039. (if (OR (= 0 @user-level) (if (< 0 @user-level) (askbool (prompt #ask-xpk) (help #xpk-help))))
  1040.  (
  1041.   (makedir "Libs:Compressors" (prompt #create-comressorsdir))
  1042.   (working #extract-libs)
  1043.   (run "T:LZX -m -x x Files/libs.lzx >NIL: <NIL: T:")  
  1044.   (run "T:LZX -m x Files/xpkSMPL.lzx xpkSMPL.library >NIL: <NIL: T:libs/compressors/")
  1045.   (run "T:LZX -m x Files/xpkSHRI.lzx xpkSHRI.library >NIL: <NIL: T:libs/compressors/")
  1046.   (run "T:LZX -m x Files/xpkSQSH.lzx >NIL: <NIL: T:libs/")
  1047.  
  1048.   (copylib (prompt "Install xpkmaster.library")
  1049.   (source "T:libs/xpkmaster.library")
  1050.   (dest "libs:")
  1051.   (confirm)
  1052.   (optional nofail askuser)
  1053.   (help @copylib-help)
  1054.   )
  1055.  
  1056.   (copylib (prompt "Install powerpacker.library")
  1057.   (source "T:libs/powerpacker.library")
  1058.   (dest "libs:")
  1059.   (confirm)
  1060.   (optional nofail askuser)
  1061.   (help @copylib-help)
  1062.   )
  1063.  
  1064.   ; xpk sub lib's
  1065.   
  1066.   (copylib (prompt "Install compressors/xpkNUKE.library")
  1067.   (source "T:libs/compressors/xpkNUKE.library")
  1068.   (dest "libs:compressors/")
  1069.   (confirm)
  1070.   (optional nofail askuser)
  1071.   (help @copylib-help)
  1072.   )
  1073.  
  1074.   (copylib (prompt "Install compressors/xpkSMPL.library")
  1075.   (source "T:libs/compressors/xpkSMPL.library")
  1076.   (dest "libs:compressors/")
  1077.   (confirm)
  1078.   (optional nofail askuser)
  1079.   (help @copylib-help)
  1080.   )
  1081.  
  1082.   (copylib (prompt "Install compressors/xpkSHRI.library")
  1083.   (source "T:libs/compressors/xpkSHRI.library")
  1084.   (dest "libs:compressors/")
  1085.   (confirm)
  1086.   (optional nofail askuser)
  1087.   (help @copylib-help)
  1088.   )
  1089.  
  1090.   ; install right version for 680x0 cpu
  1091.   (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  1092.    (copylib (prompt "Install compressors/xpkSQSH.library")
  1093.     (source "T:libs/68000/xpkSQSH.library")
  1094.     (dest "libs:compressors/")
  1095.     (confirm)
  1096.     (optional nofail askuser)
  1097.     (help @copylib-help)
  1098.    )
  1099.    (copylib (prompt "Install compressors/xpkSQSH.library")
  1100.     (source "T:libs/68020/xpkSQSH.library")
  1101.     (dest "libs:compressors/")
  1102.     (confirm)
  1103.     (optional nofail askuser)
  1104.     (help @copylib-help)
  1105.    )
  1106.   )
  1107.  
  1108.   ; cleanup temp dir
  1109.  
  1110.   (foreach "T:libs/compressors" "#?" (delete (tackon "T:libs/compressors/" @each-name) (optional force)))
  1111.   (foreach "T:libs/" "#?" (delete (tackon "T:libs/" @each-name) (optional force)))
  1112.   (delete "T:libs/68000/xpkSQSH.library")
  1113.   (delete "T:libs/68020/xpkSQSH.library")
  1114.   (delete "T:libs/68000")
  1115.   (delete "T:libs/68020")
  1116.   (delete "T:libs")
  1117.  
  1118.  )
  1119. )
  1120.  
  1121. (complete 90)
  1122.  
  1123. ;=============================================================================;
  1124. ; Install procedure for the documentation files
  1125.  
  1126. (makedir (tackon @default-dest "Docs")
  1127.  (prompt #create-docsdir)
  1128.  (infos)
  1129. )
  1130.  
  1131. (working #extract-docs)
  1132. (run "T:LZX -m -x x Files/docs.lzx >NIL: <NIL: T:")
  1133.  
  1134. (copyfiles (prompt #inst-docs)
  1135.  (source "T:Docs/")
  1136.  (dest (tackon @default-dest "Docs"))
  1137.  (pattern def_pat)
  1138.  (optional "nofail")
  1139.  (infos)
  1140.  (files)
  1141. )
  1142.  
  1143. ; cleanup temp dir
  1144.  
  1145. (foreach "T:Docs/" "#?" (delete (tackon "T:Docs/" @each-name) (optional force)))
  1146. (delete "T:Docs" (optional force))
  1147.  
  1148. (complete 95)
  1149.  
  1150. ;=============================================================================;
  1151. ; Installation procedure for Development Documentation
  1152.  
  1153. (if (= 2 @user-level)
  1154.  (if (= 1 (askbool (prompt #ask-pdocs) (help #help-pdocs)))
  1155.   (
  1156.    (makedir (tackon @default-dest "Developer")
  1157.     (prompt #create-pdocs)
  1158.     (infos)
  1159.    )
  1160.    (makedir (tackon @default-dest "Developer/Examples")
  1161.     (prompt #create-pdocs)
  1162.     (infos)
  1163.    )
  1164.    (makedir (tackon @default-dest "Developer/Include")
  1165.     (prompt #create-pdocs)
  1166.     (infos)
  1167.    )
  1168.  
  1169.    (working #extract-pdocs)
  1170.    (run ("T:LZX -m -x x Files/developer.lzx \"%s/\"" @default-dest))
  1171.  
  1172.    (if (= @LANGUAGE "deutsch")
  1173.     (
  1174.     (delete (tackon @default-dest "Developer/Developer.eng"))
  1175.     (delete (tackon @default-dest "Developer/Developer.eng.info"))
  1176.     )
  1177.     (
  1178.     (delete (tackon @default-dest "Developer/Developer.deu"))
  1179.     (delete (tackon @default-dest "Developer/Developer.deu.info"))
  1180.     )
  1181.    )
  1182.   )
  1183.  )
  1184. )
  1185.  
  1186. ;=============================================================================;
  1187. ; Set environment variables for configuration path
  1188.  
  1189. (complete 98)
  1190.  
  1191. (textfile (prompt #set-path) (dest "ENV:DELICONFIG") (append (expandpath (tackon @default-dest "DELICONFIG")))) 
  1192.  
  1193. ; this makes testing easier...
  1194. (if (NOT (= "RAM" (getdevice @default-dest)))
  1195.  (textfile (prompt #set-path) (dest "ENVARC:DELICONFIG") (append (expandpath (tackon @default-dest "DELICONFIG")))) 
  1196. )
  1197.  
  1198. ;=============================================================================;
  1199. ; Cleanup & tell some important things!
  1200.  
  1201. (delete "T:LZX")
  1202. (complete 99)
  1203. (message #final-msg)
  1204. (complete 100)
  1205.  
  1206. ;=============================================================================;
  1207.